{
 read (x);
 i := 1;
 while i<=x do {
   write (i);
   i := i+1
 }
}